home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / hardware / ioblixusr37_11 / install parallel zip < prev    next >
Text File  |  1999-11-29  |  8KB  |  260 lines
  1. ;
  2. ; $VER: IOBlix parallel port zip installation 1.5 (16.7.99)
  3. ;
  4. ; Copyright (c) 1998 Thore Böckelmann and RBM Computertechnik
  5. ;
  6.  
  7. ;****************************************************************************
  8. ;
  9. ; English texts
  10. ;
  11. (if (not (= @language "deutsch"))
  12.     (
  13.         (set #bad-kick      "You must have AmigaOS 2.0 (V37) or newer to be able to use the IOBlix I/O board.")
  14.         (set #bad-cpu       "You must have at least an MC68020 to use the IOBlix software.")
  15.         (set #noioblix      (cat "You have no IOBlix board installed! "
  16.                                  "Please install the board first, before you install the software!"))
  17.         (set #intro         (cat "\n"
  18.                                  "Now you can install the necessary drivers for a ZIP drive connected to IOBlix' parallel port."
  19.                                  "Drivers for FFS- and PC-formatted ZIP disks will be installed."
  20.                                  "\n"
  21.                                  "\n"
  22.                                  "Do you want to install the drivers now?"))
  23.         (set #selectdevs    "\nWhere to install the device drivers?\n")
  24.         (set #copyzipdev    "\nCopying ioblixzip.device...\n")
  25.         (set #copydosdriver "\nCopying DOSDrivers...\n")
  26.         (set #zipquery      (cat "Do want to install drivers for a "
  27.                                  "parallel port ZIP drive?"))
  28.         (set #zipdevask     (cat "You have an IOBlixZ2- and an IOBlix1200P board installed. "
  29.                                  "To which board do you want to connect the ZIP drive?"))
  30.         (set #zipunitask    (cat "To which port do you want to connect the ZIP drive?\n"
  31.                                  "Please make sure you select a port which really exists!"))
  32.         (set #zipstart      "Do you want the ZIP driver to be started on bootup?")
  33.         (set #zipinfo       (cat "The driver PZIP0: is meant for FFS formatted ZIP disks with 512 bytes blocksize,\n"
  34.                                  "and the driver PZIPC: is meant for PC formatted ZIP disks. This requires CrossDOS to be installed."))
  35.     )
  36. )
  37.  
  38. ;****************************************************************************
  39. ;
  40. ; Deutsche Texte
  41. ;
  42. (if (= @language "deutsch")
  43.     (
  44.         (set #bad-kick      "Sie müssen AmigaOS 2.0 (V37) oder höher installieren, um die IOBlix-Karte zu benutzen.")
  45.         (set #bad-cpu       "Sie brauchen mindestens einen MC68020, um die IOBlix-Software zu benutzen.")
  46.         (set #noioblix      (cat "Sie haben keine IOBlix-Karte in Ihrem Rechner installiert! "
  47.                                  "Bitte bauen Sie erst die Karte ein, bevor Sie die Software installieren!"))
  48.         (set #intro         (cat "\n"
  49.                                  "Sie können jetzt die nötigen Treiber für ein ZIP Laufwerk am Parallelport der IOBlix-Karte "
  50.                                  "installieren. Es werden Treiber für FFS- und PC-formatierte Medien installiert."
  51.                                  "\n"
  52.                                  "\n"
  53.                                  "Wollen Sie die Treiber jetzt installieren?"))
  54.         (set #selectdevs    "\nWohin sollen die Gerätetreiber kopiert werden?\n")
  55.         (set #copyzipdev    "\nKopiere ioblixzip.device...\n")
  56.         (set #copydosdriver "\nKopiere DOSDrivers...\n")
  57.         (set #zipquery      (cat "\n"
  58.                                  "Wollen Sie Treiber für ein Parallel-Port ZIP Laufwerk installieren?"))
  59.         (set #zipdevask     (cat "Sie haben eine IOBlixZ2- und eine IOBlix1200P-Karte installiert. "
  60.                                  "An welcher Karte soll das ZIP Laufwerk betrieben werden?"))
  61.         (set #zipunitask    (cat "An welchem Port soll das ZIP Laufwerk betrieben werden?\n"
  62.                                  "Bitte stellen Sie sicher, daß sie einen existierenden Port auswählen!"))
  63.         (set #zipstart      "Soll der ZIP Treiber gleich beim Booten gestartet werden?")
  64.         (set #zipinfo       (cat "Der Treiber PZIP0: ist für FFS-formatierte ZIP-Medien mit einer Blockgröße von 512 Bytes gedacht,\n"
  65.                                  "und der Treiber PZIPC: for PC-formatierte ZIP-Medien. Dafür muß CrossDOS installiert sein."))
  66.     )
  67. )
  68.  
  69. ;****************************************************************************
  70. ;
  71. ; Setup
  72. ;
  73.  
  74. (complete 0)
  75.  
  76. (if (< (/ (getversion) 65536) 37)
  77.     (abort #bad-kick)
  78. )
  79.  
  80. (if (patmatch "68000|68010" (database "cpu"))
  81.     (abort #bad-cpu)
  82. )
  83.  
  84. ;****************************************************************************
  85. ;
  86. ; Welcome
  87. ;
  88.  
  89. (welcome)
  90.  
  91. (complete 10)
  92.  
  93. ;****************************************************************************
  94. ;
  95. ; Check for IOBlix board
  96. ;
  97.  
  98. (run "C/english/SetupIOBlix reinit a1200 par ser" (safe))
  99. (set #ioblixz2 (run "C/Look4IOBlix hw=par" (safe)))
  100. (set #ioblix1200 (run "C/Look4IOBlix a1200 hw=par" (safe)))
  101. (if (and (= 0 #ioblixz2) (= 0 #ioblix1200))
  102.     (abort #noioblix)
  103. )
  104.  
  105. (complete 20)
  106.  
  107. ;****************************************************************************
  108. ;
  109. ;
  110. ;
  111.  
  112. (set #doit
  113.     (askbool
  114.         (prompt #intro)
  115.         (help @askbool-help)
  116.         (default 1)
  117.     )
  118. )
  119.  
  120. (if (= 0 #doit)
  121.     (exit (quiet))
  122. )
  123.  
  124. (if (and (< 0 #ioblixz2) (< 0 #ioblix1200))
  125.     (
  126.         (set #ioblixboard
  127.             (askchoice
  128.                 (prompt #zipdevask)
  129.                 (help @askchoice-help)
  130.                 (choices "IOBlixZ2" "IOBlix1200P")
  131.                 (default 0)
  132.             )
  133.         )
  134.     )
  135.     (
  136.         (if (< 0 #ioblixz2)
  137.             (
  138.                 (set #ioblixboard 0)
  139.             )
  140.             (
  141.                 (set #ioblixboard 1)
  142.             )
  143.         )
  144.     )
  145. )
  146.  
  147. (if (= 0 #ioblixboard)
  148.     (
  149.         (set #zipdevice "ioblixzip.device")
  150.         (set #zipunit
  151.             (askchoice
  152.                 (prompt #zipunitask)
  153.                 (help @askchoice-help)
  154.                 (choices "Port 0" "Port 1")
  155.                 (default 0)
  156.             )
  157.         )
  158.     )
  159.     (
  160.         (set #zipdevice "ioblix12zip.device")
  161.         (set #zipunit
  162.             (askchoice
  163.                 (prompt #zipunitask)
  164.                 (help @askchoice-help)
  165.                 (choices "Port 0" "Port 1" "Port 2" "Port 3")
  166.                 (default 0)
  167.             )
  168.         )
  169.     )
  170. )
  171. (set #zipunit (cat "" #zipunit))
  172.  
  173. ;****************************************************************************
  174. ;
  175. ; Setup directory
  176. ;
  177.  
  178. (complete 30)
  179.  
  180. (set #destdevs
  181.     (askdir
  182.         (prompt #selectdevs)
  183.         (help @askdir-help)
  184.         (default "DEVS:")
  185.     )
  186. )
  187.  
  188. ;****************************************************************************
  189. ;
  190. ; Install devices
  191. ;
  192.  
  193. (if (= 0 #ioblixboard)
  194.     (
  195.         (set #file (tackon "Devs/IOBlixZ2" #zipdevice))
  196.     )
  197.     (
  198.         (set #file (tackon "Devs/IOBlix1200" #zipdevice))
  199.     )
  200. )
  201. (copylib
  202.     (help @copylib-help)
  203.     (prompt #copyzipdev)
  204.     (source #file)
  205.     (dest #destdevs)
  206.     (confirm)
  207. )
  208.  
  209. (complete 60)
  210.  
  211. (copyfiles
  212.     (help @copyfiles-help)
  213.     (prompt #copydosdriver)
  214.     (source "Devs/DOSDrivers")
  215.     (choices "PZIP0" "PZIPC")
  216.     (dest "SYS:Storage/DOSDrivers")
  217.     (infos)
  218.     (confirm)
  219. )
  220.  
  221. (if (= 1 (exists "SYS:Storage/DOSDrivers/PZIP0"))
  222.     (tooltype
  223.         (dest "SYS:Storage/DOSDrivers/PZIP0")
  224.         (settooltype "DEVICE" #zipdevice)
  225.         (settooltype "UNIT" #zipunit)
  226.     )
  227. )
  228. (if (= 1 (exists "SYS:Storage/DOSDrivers/PZIPC"))
  229.     (tooltype
  230.         (dest "SYS:Storage/DOSDrivers/PZIPC")
  231.         (settooltype "DEVICE" #zipdevice)
  232.         (settooltype "UNIT" #zipunit)
  233.     )
  234. )
  235.  
  236. ;****************************************************************************
  237. ;
  238. ;
  239. ;
  240.  
  241. (startup "IOBlix ZIP driver"
  242.     (help @startup-help)
  243.     (prompt #zipstart)
  244.     (command (cat "mount PZIP0: >nil:\n"
  245.                   "mount PZIPC: >nil:"))
  246. )
  247.  
  248. (complete 90)
  249.  
  250. (message #zipinfo)
  251.  
  252. ;****************************************************************************
  253. ;
  254. ; Exit
  255. ;
  256.  
  257. (complete 100)
  258. (exit)
  259.  
  260.